home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / comm / term / trms20d.lha / HD_Install < prev    next >
Text File  |  1993-10-07  |  4KB  |  193 lines
  1. (set vernum (getversion "libs:version.library"))
  2. (set ver (/ vernum 65536))
  3. (set rev (- vernum (* ver 65536)))
  4. (set is_update 0)
  5. (complete 0)
  6.  
  7. (set @execute-dir (pathonly @icon))
  8. (makeassign "TERMINST" @execute-dir)
  9. (set term-dest (getassign "TERMINUS" "a"))
  10.  
  11. (if term-dest
  12.    (
  13.       (set @default-dest term-dest)
  14.       (set is_update 
  15.          (askbool
  16.             (prompt 
  17.                "Your current copy of Terminus appears to be located in the drawer named \""
  18.                term-dest
  19.                "\".\n\n  Do you want the update installed in that drawer?"
  20.             )
  21.             (help
  22.                "The logical assignment \"TERMINUS\" is present on your system"
  23.                "If you would like this version placed elsewhere, please select"
  24.                "NO.  Otherwise, select YES to install Terminus there."
  25.             )
  26.             (default 1)
  27.          )
  28.       )
  29.    )
  30. )
  31.  
  32. (if (= is_update 0)
  33.    (
  34.       (set term-dest
  35.          (tackon 
  36.             (askdir
  37.                (prompt "In which disk or drawer should Terminus be installed?")
  38.                (help @askdir-help)
  39.                (default @default-dest)
  40.             )
  41.             "Terminus"
  42.          )
  43.       )
  44.       (makedir term-dest (infos))
  45.       (makeassign "TERMINUS" term-dest)
  46.    )
  47. )
  48.  
  49. (set @default-dest "")
  50. (set ver 0)
  51. (if (exists "LIBS:asl.library")
  52.    (
  53.       (set vernum (getversion "LIBS:asl.library"))
  54.       (set ver (/ vernum 65536))
  55.    )
  56. )
  57.  
  58. (if (and (not (exists "LIBS:req.library")) (< ver 38))
  59.    (copyfiles
  60.       (source "Libs/req.library")
  61.       (dest "LIBS:")
  62.    )
  63. )
  64.  
  65. (complete 7)
  66.  
  67. (if (not (exists "LIBS:OwnDevUnit.library"))
  68.    (copyfiles
  69.       (source "Libs/OwnDevUnit.library")
  70.       (dest "LIBS:")
  71.    )
  72. )
  73.  
  74. (complete 14)
  75.  
  76. (if (not (exists "LIBS:xprkermit.library"))
  77.    (copyfiles
  78.       (source "Libs/xprkermit.library")
  79.       (dest "LIBS:")
  80.    )
  81. )
  82.  
  83. (complete 21)
  84.  
  85. (if (not (exists "LIBS:xprbplus.library"))
  86.    (copyfiles
  87.       (source "Libs/xprbplus.library")
  88.       (dest "LIBS:")
  89.    )
  90. )
  91.  
  92. (complete 28)
  93.  
  94. (copyfiles
  95.    (source "Fonts")
  96.    (dest "Fonts:")
  97.    (all)
  98. )
  99.  
  100. (complete 35)
  101.  
  102. (set exec-lha (tackon "TERMINST:" "bin/lha -mx e "))
  103.  
  104. (if (getassign "REXX:" "a")
  105.    (working "Extracting Terminus ARexx scripts...")
  106.    (set exec-part (tackon "TERMINST:" "RexxFiles REXX:"))
  107.    (run (cat exec-lha exec-part))
  108. )
  109.  
  110. (complete 42)
  111.  
  112. (set script-dest (tackon term-dest "Scripts"))
  113. (if (not (exists script-dest))
  114.    (makedir script-dest)
  115. )
  116.  
  117. (complete 49)
  118.  
  119. (makeassign "TERMTEMP" script-dest)
  120. (working "Extracting Terminus scripts...")
  121. (set exec-part (tackon "TERMINST:" "ScriptFiles TERMTEMP:"))
  122. (run (cat exec-lha exec-part))
  123.  
  124. (complete 56)
  125.  
  126. (copyfiles
  127.    (source "Readme")
  128.    (dest term-dest)
  129.    (infos)
  130. )
  131.  
  132. (copyfiles
  133.    (source "History.txt")
  134.    (dest term-dest)
  135.    (infos)
  136. )
  137.  
  138. (complete 63)
  139.  
  140. (copyfiles
  141.    (source "Registration")
  142.    (dest term-dest)
  143.    (infos)
  144. )
  145.  
  146. (complete 70)
  147.  
  148. (copyfiles
  149.    (source "Legal")
  150.    (dest term-dest)
  151.    (infos)
  152. )
  153.  
  154. (complete 77)
  155.  
  156. (makeassign "TERMTEMP" term-dest)
  157. (working "Extracting Terminus executables...")
  158. (set exec-part (tackon "TERMINST:" "ExecFiles TERMTEMP:"))
  159. (run (cat exec-lha exec-part))
  160.  
  161. (complete 84)
  162.  
  163. (working "Extracting Terminus documentation...")
  164. (set exec-part (tackon "TERMINST:" "DocFiles TERMTEMP:"))
  165. (run (cat exec-lha exec-part))
  166. (makeassign "TERMTEMP")
  167. (makeassign "TERMINST")
  168.  
  169. (complete 91)
  170.  
  171. (if (exists "keyfile")
  172.    (copyfiles
  173.       (source "keyfile")
  174.       (dest term-dest)
  175.    )
  176. )
  177.  
  178. (startup "Terminus"
  179.    (prompt
  180.       "Ready to modify \"S:User-Startup\" so that Terminus can be "
  181.       "used with your system."
  182.    )
  183.    (help @startup-help)
  184.    (command 
  185.       "Assign TERMINUS: " term-dest "\n"
  186.       "Path TERMINUS: add\n"
  187.    )
  188. )
  189.  
  190. (complete 100)
  191.  
  192. (exit)
  193.